home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinMessenger 5.xpl < prev    next >
Text File  |  2002-01-10  |  2KB  |  43 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\Windows Messenger\Appearance"
  5. "NAME"="Background Image"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.31"
  8. "TEXT 1"="Background"
  9. "DATA 1"="GIF Images (*.gif)|*.gif|All Files (*.*)|*.*"
  10. "DESCRIPTION 1"="If you like, you can change the background image Windows Messenger uses. Type the location of the file in the box, and click Apply Changes."
  11. "DESCRIPTION 2"="NOTE: This will only work on MSN Messenger 3.5 or better or Windows Messenger, and the image must be in the GIF format. The old image will be saved to the X-Setup backup folder, which is usually C:\Program Files\X-Setup\backup."
  12. "DESCRIPTION 3"="Windows Messenger may be obtained at http://messenger.msn.com/"
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Chris Pirillo [chris@lockergnome.com] for suggesting this tweak in his awesome Lockergome.com Windows newsletter!"
  17.  
  18. sP="HKLM\Software\Microsoft\MessengerService\InstallationDirectory"
  19.  
  20. Sub Plugin_Initialize
  21.  i=RegValueExists(sP)
  22.  if i=false then
  23.   Call Disable()
  24.  end if
  25. End Sub
  26.  
  27. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  28.  t=RegReadValue(sP)
  29.  s=GetUIElement(1)
  30.  if len(s)>0 then ' don't do anything unless user has typed something
  31.   ' Before we make any changes, backup the file!
  32.   Call FileBackup(t & "\lvback.gif")
  33.  
  34.   ' OK, let's go!
  35.   Call FileDelete(t & "\lvback.gif")
  36.   Call FileCopy(s,t & "\lvback.gif")
  37.   
  38.   Call MsgInformation("The new image has been set.")
  39.  end if
  40. End Sub
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub